home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 10 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  231 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 10                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"          STR$ENOMINATE (null)UMBERS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  LEFT$OW MANY SHOES ARE THERE IN 38 PAIRS
  51. 210 PRINT"  OF SHOES?"
  52. 220 GOSUB81:GOSUB70
  53. 225 PRINT"             [145]"
  54. 230 INPUT A$
  55. 240 IFA$<>"76"THEN 270
  56. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  57. 260 P=P+1:GOTO300
  58. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  59. 275 IFZ=2THENG=G+1:GOTO287
  60. 280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  61. 285 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  62. 287 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  76 [158]      ":GOSUB82
  63. 290 PRINT"    38 X 2 = 76 "
  64. 295 GOSUB82:GOSUB90
  65. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  66. 305 PRINT"  [202]AMIE CAUGHT A FISH THAT WEIGHED
  67. 310 [153]"  27 POUNDS AND CHR$ILLIAN CAUGHT ONE        THAT WEIGHED 22 POUNDS.
  68. 315 PRINT"  [215]AS [202]AMIE'S FISH BIGGER?"
  69. 320 GOSUB81:GOSUB70
  70. 325 PRINT"             [145]"
  71. 330 INPUT A$
  72. 340 IFA$<>"Y"ANDA$<>"YES"THEN370
  73. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  74. 360 P=P+1:GOTO400
  75. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  76. 375 IFZ=2THENG=G+1:GOTO387
  77. 380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  78. 385 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
  79. 387 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  YES [158].     ":GOSUB82
  80. 390 PRINT"    27 - 22 = 5   "
  81. 395 GOSUB82:GOSUB90
  82. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  83. 405 PRINT"  [198]IND THE COST OF A DOZEN GRAPEFRUIT
  84. 410 [153]"  AT 30 CENTS EACH."
  85. 415 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  86. 420 [141]81:[141]70
  87. 425 [153]"             ON"
  88. 430 [133] A$
  89. 440 [139]A$[179][177]"$3.60"[167]470
  90. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  91. 460 P[178]P[170]1:[137]500
  92. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  93. 475 [139]Z[178]2[167]G[178]G[170]1:[137]487
  94. 480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  95. 485 [153]"OPENONON                                        ONONONONONONON":[137]425
  96. 487 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $3.60 SYS      ":[141]82
  97. 490 [153]"   .30 X 12 = 3.60  "
  98. 495 [141]82:[141]90
  99. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  100. 505 [153]"  (null)HIRTY-THREE CHILDREN ARE INVITED
  101. 510 PRINT"  TO THE PARTY.
  102. 515 [153]"  (null)ILL THREE DOZEN CHAIRS BE ENOUGH       TO SEAT THEM?"
  103. 520 [141]81:[141]70
  104. 525 [153]"             ON"
  105. 530 [133] A$
  106. 540 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167] 570
  107. 550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  108. 560 P[178]P[170]1:[137]600
  109. 570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  110. 575 [139]Z[178]2[167]G[178]G[170]1:[137]587
  111. 580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  112. 585 [153]"OPENONON                                        ONONONONONONON":[137]525
  113. 587 [153]"SYSONON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  114. 590 [153]"    36 - 33 = 3 "
  115. 595 [141]82:[141]90
  116. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  117. 605 [153]"  LEFT$OW MANY YARDS ARE THERE IN A HOSE
  118. 610 PRINT"  THAT IS 36 FEET LONG?"
  119. 620 GOSUB81:GOSUB70
  120. 625 PRINT"             [145]"
  121. 630 INPUT A$
  122. 640 IFA$<>"12"THEN 670
  123. 650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  124. 660 P=P+1:GOTO700
  125. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  126. 675 IFZ=2THENG=G+1:GOTO687
  127. 680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  128. 685 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
  129. 687 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  12 [158]      ":GOSUB82
  130. 690 PRINT"    36 / 3 = 12 "
  131. 695 GOSUB82:GOSUB90
  132. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  133. 705 PRINT"  [211]EVEN YARDS OF CLOTH COST $5.25.
  134. 710 [153]"  (null)HAT WAS THE PRICE PER YARD?
  135. 725 PRINT"             [145]"
  136. 730 INPUT A$
  137. 740 IFA$<>"$.75"ANDA$<>"75"THEN 770
  138. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  139. 760 P=P+1:GOTO800
  140. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  141. 775 IFZ=2THENG=G+1:GOTO787
  142. 780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  143. 785 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  144. 787 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $.75 [158]      ":GOSUB82
  145. 790 PRINT"    5.25 / 7 = .75 "
  146. 795 GOSUB82:GOSUB90
  147. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  148. 805 PRINT"  [211]ARAH HAS HALF A DOLLAR.  [200]OW MUCH
  149. 810 [153]"  MORE MONEY DOES SHE NEED TO BUY
  150. 815 PRINT"  A PEN FOR 75 CENTS?
  151. 820 [141]81:[141]70
  152. 825 [153]"             ON"
  153. 830 [133] A$
  154. 840 [139]A$[179][177]"25"[175]A$[179][177]"$.25"[167] 870
  155. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  156. 860 P[178]P[170]1:[137]900
  157. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  158. 875 [139]Z[178]2[167]G[178]G[170]1:[137]887
  159. 880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  160. 885 [153]"OPENONON                                        ONONONONONONON":[137]825
  161. 887 [153]"SYSONON   (null)HE CORRECT ANSWER IS  25 SYS CENTS. ":[141]82
  162. 890 [153]"    75 - 50 = 25  "
  163. 895 [141]82:[141]90
  164. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  165. 905 [153]"  PEEKEN EARNED A QUARTER AND 15 CENTS       ON (null)ATURDAY.
  166. 910 PRINT"  [200]OW MUCH DID HE EARN THAT DAY?"
  167. 920 GOSUB81:GOSUB70
  168. 925 PRINT"             [145]"
  169. 930 INPUT A$
  170. 940 IFA$<>"$.40"ANDA$<>"40"THEN 970
  171. 950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  172. 960 P=P+1:GOTO1000
  173. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  174. 975 IFZ=2THENG=G+1:GOTO987
  175. 980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  176. 985 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
  177. 987 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  40 [158] CENTS.":GOSUB82
  178. 990 PRINT"    25 + 15 = 40 "
  179. 995 GOSUB82:GOSUB90
  180. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  181. 1005 PRINT"  [200]OW MUCH MORE ARE 5 DOZEN THAN 55?
  182. 1020 [141]81:[141]70
  183. 1025 [153]"             ON"
  184. 1030 [133] A$
  185. 1040 [139]A$[179][177]"5"[167]1070
  186. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  187. 1060 P[178]P[170]1:[137]1100
  188. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  189. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1087
  190. 1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  191. 1085 [153]"OPENONON                                        ONONONONONONON":[137]1025
  192. 1087 [153]"SYSONON   (null)HE CORRECT ANSWER IS  5 SYS      ":[141]82
  193. 1090 [153]"    60 - 55 = 5 "
  194. 1095 [141]82:[141]90
  195. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  196. 1105 [153]"  LEFT$OW MANY HOURS IS IT BETWEEN SEVEN
  197. 1110 PRINT"  IN THE MORNING AND FOUR IN THE          AFTERNOON?"
  198. 1120 GOSUB81:GOSUB70
  199. 1125 PRINT"             [145]"
  200. 1130 INPUT A$
  201. 1140 IFA$<>"9"THEN 1170
  202. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  203. 1160 GOTO1200
  204. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  205. 1175 IFZ=2THENG=G+1:GOTO1187
  206. 1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  207. 1185 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
  208. 1187 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  9 [158] HOURS. ":GOSUB82
  209. 1190 PRINT"    [212]HINK ABOUT IT! "
  210. 1195 GOSUB82:GOSUB90
  211. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  212. 1205 D=W-G:C=10-W
  213. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  214. 1215 [153]"                 ";C
  215. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  216. 1225 PRINT"                 ";D
  217. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  218. 1235 [153]"                 ";G;""
  219. 1245 [141]90
  220. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  221. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  222. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  223. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  224. 1270 [139]R$[178]"R"[167][140]:[137]100
  225. 1275 [140]
  226. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  227. 1285 LOAD"MENU",8
  228. 1290 RUN
  229. 1295 END
  230. 1300 REM BILL CUMBERLAND 90:12:21
  231.